﻿Imports Microsoft.VisualBasic.CompilerServices
Imports Stickam_Client.My
Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms

Namespace Stickam_Client
    <DesignerGenerated> _
    Public Class Form_ChatOptions
        Inherits Form
        ' Methods
        Public Sub New()
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Form4_Load)
            Me.PresetColors = New Color() { Color.Black, Color.White, Color.Gray, Color.FromArgb(&HC0, &HC0, &HC0), Color.FromArgb(&H80, 0, 0), Color.Red, Color.FromArgb(&H80, &H80, 0), Color.Yellow, Color.Green, Color.Lime, Color.FromArgb(0, &H80, &H80), Color.Cyan, Color.DarkBlue, Color.Blue, Color.Purple, Color.Fuchsia, Color.SlateBlue, Color.FromArgb(0, &H80, &HFF), Color.YellowGreen, Color.MediumSpringGreen, Color.DeepPink, Color.FromArgb(&HFF, &H80, 0) }
            Me.InitializeComponent
        End Sub

        Private Sub BarBlue_Scroll(ByVal sender As Object, ByVal e As EventArgs)
            Me.ValueBlue.Text = Conversions.ToString(Me.BarBlue.Value)
            Me.UpdateColor
        End Sub

        Private Sub BarGreen_Scroll(ByVal sender As Object, ByVal e As EventArgs)
            Me.ValueGreen.Text = Conversions.ToString(Me.BarGreen.Value)
            Me.UpdateColor
        End Sub

        Private Sub BarRed_Scroll(ByVal sender As Object, ByVal e As EventArgs)
            Me.ValueRed.Text = Conversions.ToString(Me.BarRed.Value)
            Me.UpdateColor
        End Sub

        <DebuggerNonUserCode> _
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            Try 
                If (disposing AndAlso (Not Me.components Is Nothing)) Then
                    Me.components.Dispose
                End If
            Finally
                MyBase.Dispose(disposing)
            End Try
        End Sub

        Private Sub DoApply_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.SaveAndClose(True, False)
        End Sub

        Private Sub DoDone_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.SaveAndClose(True, True)
        End Sub

        Private Sub DoRandomize_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.FontFamily.SelectedIndex = Conversions.ToInteger(Globals.RandomNumber(0, (Me.FontFamily.Items.Count - 1)))
            Me.FontSize.SelectedIndex = Conversions.ToInteger(Globals.RandomNumber(0, (Me.FontSize.Items.Count - 1)))
            Me.FontBold.Checked = Conversions.ToBoolean(Globals.RandomNumber(0, 1))
            Me.FontItalics.Checked = Conversions.ToBoolean(Globals.RandomNumber(0, 1))
            If Conversions.ToBoolean(Globals.RandomNumber(0, 1)) Then
                Me.FontUnderline.Checked = Conversions.ToBoolean(Globals.RandomNumber(0, 1))
            Else
                Me.FontUnderline.Checked = False
            End If
            Me.SetColorValues(Color.FromArgb(Conversions.ToInteger(Globals.RandomNumber(0, &HFF)), Conversions.ToInteger(Globals.RandomNumber(0, &HFF)), Conversions.ToInteger(Globals.RandomNumber(0, &HFF))))
            Me.UpdateColor
        End Sub

        Private Sub DoReset_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.FontFamily.SelectedIndex = 0
            Me.FontSize.SelectedIndex = 3
            Me.FontBold.Checked = False
            Me.FontItalics.Checked = False
            Me.FontUnderline.Checked = False
            Me.SetColorValues(Color.Black)
            Me.UpdateColor
        End Sub

        Private Sub DrawPresetColors()
            Dim numArray As Integer() = New Integer() { &H9E, 80 }
            Dim numArray2 As Integer() = New Integer() { 11, 12 }
            Dim num2 As Integer = (Me.PresetColors.Length - 1)
            Dim i As Integer = 0
            Do While (i <= num2)
                Dim panel As New Panel With { _
                    .BackColor = Me.PresetColors(i), _
                    .BorderStyle = BorderStyle.FixedSingle _
                }
                Dim point As New Point(numArray(0), numArray(1))
                panel.Location = point
                panel.Name = ("PresetColor" & Conversions.ToString(i))
                Dim size As New Size(numArray2(0), numArray2(1))
                panel.Size = size
                Me.Controls.Add(panel)
                AddHandler panel.Click, New EventHandler(AddressOf Me.PresetColor_Click)
                Dim index As Integer = 1
                numArray(index) = (numArray(index) + (numArray2(1) + 1))
                If (numArray(1) > &H5D) Then
                    numArray(1) = 80
                    index = 0
                    numArray(index) = (numArray(index) + (numArray2(0) + 1))
                End If
                i += 1
            Loop
        End Sub

        Private Sub FontUpdate(ByVal sender As Object, ByVal e As EventArgs)
            If ((Me.FontFamily.SelectedIndex <> -1) And (Me.FontSize.SelectedIndex <> -1)) Then
                Dim num As Integer = 0
                If Me.FontBold.Checked Then
                    num += 1
                End If
                If Me.FontItalics.Checked Then
                    num = (num + 2)
                End If
                If Me.FontUnderline.Checked Then
                    num = (num + 4)
                End If
                Me.PreviewFont.Font = New Font(Me.FontFamily.SelectedItem.ToString, CSng((Conversions.ToInteger(Me.FontSize.SelectedItem) - 3)), DirectCast(num, FontStyle))
            End If
        End Sub

        Private Sub Form4_Load(ByVal sender As Object, ByVal e As EventArgs)
            Me.DrawPresetColors
            Me.FontBold.Checked = MySettingsProperty.Settings.FontBold
            Me.FontItalics.Checked = MySettingsProperty.Settings.FontItalics
            Me.FontUnderline.Checked = MySettingsProperty.Settings.FontUnderline
            Me.FontFamily.SelectedItem = MySettingsProperty.Settings.FontFamily
            Me.FontSize.SelectedItem = Conversions.ToString(MySettingsProperty.Settings.FontSize)
            Me.Keywords.Text = MySettingsProperty.Settings.Keywords
            Me.PlayKeywordSound.Checked = MySettingsProperty.Settings.PlayKeywordSound
            Me.SetColorValues(Globals.ColorFromString(MySettingsProperty.Settings.FontColor))
            Me.UpdateColor
        End Sub

        <DebuggerStepThrough> _
        Private Sub InitializeComponent()
            Dim manager As New ComponentResourceManager(GetType(Form_ChatOptions))
            Me.FontFamily = New ComboBox
            Me.FontSize = New ComboBox
            Me.FontBold = New CheckBox
            Me.FontItalics = New CheckBox
            Me.FontUnderline = New CheckBox
            Me.Label1 = New Label
            Me.Label2 = New Label
            Me.Label3 = New Label
            Me.BarRed = New TrackBar
            Me.BarGreen = New TrackBar
            Me.BarBlue = New TrackBar
            Me.ValueRed = New Label
            Me.ValueGreen = New Label
            Me.ValueBlue = New Label
            Me.Panel1 = New Panel
            Me.PreviewFont = New Label
            Me.Panel2 = New Panel
            Me.PreviewColor = New Label
            Me.DoApply = New Button
            Me.DoDone = New Button
            Me.DoReset = New Button
            Me.DoRandomize = New Button
            Me.Label4 = New Label
            Me.Keywords = New TextBox
            Me.PlayKeywordSound = New CheckBox
            Me.InvertColors = New Button
            Me.BarRed.BeginInit
            Me.BarGreen.BeginInit
            Me.BarBlue.BeginInit
            Me.Panel1.SuspendLayout
            Me.Panel2.SuspendLayout
            Me.SuspendLayout
            Me.FontFamily.DropDownStyle = ComboBoxStyle.DropDownList
            Me.FontFamily.FormattingEnabled = True
            Me.FontFamily.Items.AddRange(New Object() { "Arial", "Comic Sans MS", "Courier New", "MS Sans Serif", "Tahoma", "Times New Roman", "Verdana" })
            Dim point As New Point(1, 1)
            Me.FontFamily.Location = point
            Me.FontFamily.Name = "FontFamily"
            Dim size As New Size(120, &H15)
            Me.FontFamily.Size = size
            Me.FontFamily.TabIndex = 0
            Me.FontSize.DropDownStyle = ComboBoxStyle.DropDownList
            Me.FontSize.FormattingEnabled = True
            Me.FontSize.Items.AddRange(New Object() { "9", "10", "11", "12", "13", "14", "15", "16", "17", "18" })
            point = New Point(&H7A, 1)
            Me.FontSize.Location = point
            Me.FontSize.Name = "FontSize"
            size = New Size(40, &H15)
            Me.FontSize.Size = size
            Me.FontSize.TabIndex = 1
            Me.FontBold.AutoSize = True
            Me.FontBold.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Bold, GraphicsUnit.Point, 0)
            point = New Point(&HA5, 3)
            Me.FontBold.Location = point
            Me.FontBold.Name = "FontBold"
            size = New Size(&H22, &H11)
            Me.FontBold.Size = size
            Me.FontBold.TabIndex = 2
            Me.FontBold.Text = "B"
            Me.FontBold.UseVisualStyleBackColor = True
            Me.FontItalics.AutoSize = True
            Me.FontItalics.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Italic, GraphicsUnit.Point, 0)
            point = New Point(&HCC, 3)
            Me.FontItalics.Location = point
            Me.FontItalics.Name = "FontItalics"
            size = New Size(&H1D, &H11)
            Me.FontItalics.Size = size
            Me.FontItalics.TabIndex = 3
            Me.FontItalics.Text = "I"
            Me.FontItalics.UseVisualStyleBackColor = True
            Me.FontUnderline.AutoSize = True
            Me.FontUnderline.Font = New Font("Microsoft Sans Serif", 8.25!, FontStyle.Underline, GraphicsUnit.Point, 0)
            point = New Point(&HEE, 3)
            Me.FontUnderline.Location = point
            Me.FontUnderline.Name = "FontUnderline"
            size = New Size(&H22, &H11)
            Me.FontUnderline.Size = size
            Me.FontUnderline.TabIndex = 4
            Me.FontUnderline.Text = "U"
            Me.FontUnderline.UseVisualStyleBackColor = True
            Me.Label1.AutoSize = True
            point = New Point(-2, &H19)
            Me.Label1.Location = point
            Me.Label1.Name = "Label1"
            size = New Size(15, 13)
            Me.Label1.Size = size
            Me.Label1.TabIndex = 5
            Me.Label1.Text = "R"
            Me.Label2.AutoSize = True
            point = New Point(-2, &H2B)
            Me.Label2.Location = point
            Me.Label2.Name = "Label2"
            size = New Size(15, 13)
            Me.Label2.Size = size
            Me.Label2.TabIndex = 6
            Me.Label2.Text = "G"
            Me.Label3.AutoSize = True
            point = New Point(-2, &H3D)
            Me.Label3.Location = point
            Me.Label3.Name = "Label3"
            size = New Size(14, 13)
            Me.Label3.Size = size
            Me.Label3.TabIndex = 7
            Me.Label3.Text = "B"
            Me.BarRed.AutoSize = False
            point = New Point(9, &H18)
            Me.BarRed.Location = point
            Me.BarRed.Maximum = &HFF
            Me.BarRed.Name = "BarRed"
            size = New Size(&HFF, 20)
            Me.BarRed.Size = size
            Me.BarRed.TabIndex = 8
            Me.BarRed.TickStyle = TickStyle.None
            Me.BarGreen.AutoSize = False
            point = New Point(9, &H2A)
            Me.BarGreen.Location = point
            Me.BarGreen.Maximum = &HFF
            Me.BarGreen.Name = "BarGreen"
            size = New Size(&HFF, 20)
            Me.BarGreen.Size = size
            Me.BarGreen.TabIndex = 9
            Me.BarGreen.TickStyle = TickStyle.None
            Me.BarBlue.AutoSize = False
            point = New Point(9, 60)
            Me.BarBlue.Location = point
            Me.BarBlue.Maximum = &HFF
            Me.BarBlue.Name = "BarBlue"
            size = New Size(&HFF, 20)
            Me.BarBlue.Size = size
            Me.BarBlue.TabIndex = 10
            Me.BarBlue.TickStyle = TickStyle.None
            Me.ValueRed.AutoSize = True
            point = New Point(&H107, &H19)
            Me.ValueRed.Location = point
            Me.ValueRed.Name = "ValueRed"
            size = New Size(13, 13)
            Me.ValueRed.Size = size
            Me.ValueRed.TabIndex = 11
            Me.ValueRed.Text = "0"
            Me.ValueGreen.AutoSize = True
            point = New Point(&H107, &H2B)
            Me.ValueGreen.Location = point
            Me.ValueGreen.Name = "ValueGreen"
            size = New Size(13, 13)
            Me.ValueGreen.Size = size
            Me.ValueGreen.TabIndex = 12
            Me.ValueGreen.Text = "0"
            Me.ValueBlue.AutoSize = True
            point = New Point(&H107, &H3D)
            Me.ValueBlue.Location = point
            Me.ValueBlue.Name = "ValueBlue"
            size = New Size(13, 13)
            Me.ValueBlue.Size = size
            Me.ValueBlue.TabIndex = 13
            Me.ValueBlue.Text = "0"
            Me.Panel1.BackColor = SystemColors.Control
            Me.Panel1.BorderStyle = BorderStyle.FixedSingle
            Me.Panel1.Controls.Add(Me.PreviewFont)
            point = New Point(1, 80)
            Me.Panel1.Location = point
            Me.Panel1.Name = "Panel1"
            size = New Size(110, &H19)
            Me.Panel1.Size = size
            Me.Panel1.TabIndex = 14
            Me.PreviewFont.BackColor = Color.White
            Me.PreviewFont.Dock = DockStyle.Fill
            point = New Point(0, 0)
            Me.PreviewFont.Location = point
            Me.PreviewFont.Name = "PreviewFont"
            size = New Size(&H6C, &H17)
            Me.PreviewFont.Size = size
            Me.PreviewFont.TabIndex = 0
            Me.PreviewFont.Text = "AaBbYyZz"
            Me.PreviewFont.TextAlign = ContentAlignment.MiddleCenter
            Me.Panel2.BackColor = SystemColors.Control
            Me.Panel2.BorderStyle = BorderStyle.FixedSingle
            Me.Panel2.Controls.Add(Me.PreviewColor)
            point = New Point(&H70, 80)
            Me.Panel2.Location = point
            Me.Panel2.Name = "Panel2"
            size = New Size(&H2D, &H19)
            Me.Panel2.Size = size
            Me.Panel2.TabIndex = 15
            Me.PreviewColor.BackColor = Color.Black
            Me.PreviewColor.Dock = DockStyle.Fill
            Me.PreviewColor.Font = New Font("Verdana", 6!, FontStyle.Regular, GraphicsUnit.Point, 0)
            Me.PreviewColor.ForeColor = Color.White
            point = New Point(0, 0)
            Me.PreviewColor.Location = point
            Me.PreviewColor.Name = "PreviewColor"
            size = New Size(&H2B, &H17)
            Me.PreviewColor.Size = size
            Me.PreviewColor.TabIndex = 0
            Me.PreviewColor.Text = "000000"
            Me.PreviewColor.TextAlign = ContentAlignment.MiddleCenter
            Me.DoApply.FlatStyle = FlatStyle.Popup
            Me.DoApply.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(&HBC, &H6A)
            Me.DoApply.Location = point
            Me.DoApply.Name = "DoApply"
            size = New Size(50, &H12)
            Me.DoApply.Size = size
            Me.DoApply.TabIndex = &H10
            Me.DoApply.Text = "APPLY"
            Me.DoApply.UseCompatibleTextRendering = True
            Me.DoApply.UseVisualStyleBackColor = True
            Me.DoDone.FlatStyle = FlatStyle.Popup
            Me.DoDone.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(&HEF, &H6A)
            Me.DoDone.Location = point
            Me.DoDone.Name = "DoDone"
            size = New Size(50, &H12)
            Me.DoDone.Size = size
            Me.DoDone.TabIndex = &H11
            Me.DoDone.Text = "DONE"
            Me.DoDone.UseCompatibleTextRendering = True
            Me.DoDone.UseVisualStyleBackColor = True
            Me.DoReset.FlatStyle = FlatStyle.Popup
            Me.DoReset.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(&H89, &H6A)
            Me.DoReset.Location = point
            Me.DoReset.Name = "DoReset"
            size = New Size(50, &H12)
            Me.DoReset.Size = size
            Me.DoReset.TabIndex = &H12
            Me.DoReset.Text = "RESET"
            Me.DoReset.UseCompatibleTextRendering = True
            Me.DoReset.UseVisualStyleBackColor = True
            Me.DoRandomize.FlatStyle = FlatStyle.Popup
            Me.DoRandomize.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(&H47, &H6A)
            Me.DoRandomize.Location = point
            Me.DoRandomize.Name = "DoRandomize"
            size = New Size(&H41, &H12)
            Me.DoRandomize.Size = size
            Me.DoRandomize.TabIndex = &H13
            Me.DoRandomize.Text = "RANDOM"
            Me.DoRandomize.UseCompatibleTextRendering = True
            Me.DoRandomize.UseVisualStyleBackColor = True
            Me.Label4.AutoSize = True
            point = New Point(-2, &H80)
            Me.Label4.Location = point
            Me.Label4.Name = "Label4"
            size = New Size(&H38, 13)
            Me.Label4.Size = size
            Me.Label4.TabIndex = 20
            Me.Label4.Text = "Keywords:"
            point = New Point(50, &H7D)
            Me.Keywords.Location = point
            Me.Keywords.Name = "Keywords"
            size = New Size(&H97, 20)
            Me.Keywords.Size = size
            Me.Keywords.TabIndex = &H15
            Me.PlayKeywordSound.AutoSize = True
            point = New Point(&HCF, &H81)
            Me.PlayKeywordSound.Location = point
            Me.PlayKeywordSound.Name = "PlayKeywordSound"
            size = New Size(80, &H11)
            Me.PlayKeywordSound.Size = size
            Me.PlayKeywordSound.TabIndex = &H16
            Me.PlayKeywordSound.Text = "Play Sound"
            Me.PlayKeywordSound.UseVisualStyleBackColor = True
            Me.InvertColors.FlatStyle = FlatStyle.Popup
            Me.InvertColors.Font = New Font("Microsoft Sans Serif", 6.75!, FontStyle.Regular, GraphicsUnit.Point, 0)
            point = New Point(1, &H6A)
            Me.InvertColors.Location = point
            Me.InvertColors.Name = "InvertColors"
            size = New Size(&H45, &H12)
            Me.InvertColors.Size = size
            Me.InvertColors.TabIndex = &H17
            Me.InvertColors.Text = "INVERT"
            Me.InvertColors.UseCompatibleTextRendering = True
            Me.InvertColors.UseVisualStyleBackColor = True
            Dim ef As New SizeF(6!, 13!)
            Me.AutoScaleDimensions = ef
            Me.AutoScaleMode = AutoScaleMode.Font
            size = New Size(290, &H92)
            Me.ClientSize = size
            Me.Controls.Add(Me.InvertColors)
            Me.Controls.Add(Me.PlayKeywordSound)
            Me.Controls.Add(Me.Keywords)
            Me.Controls.Add(Me.Label4)
            Me.Controls.Add(Me.DoRandomize)
            Me.Controls.Add(Me.DoReset)
            Me.Controls.Add(Me.DoDone)
            Me.Controls.Add(Me.DoApply)
            Me.Controls.Add(Me.Panel2)
            Me.Controls.Add(Me.Panel1)
            Me.Controls.Add(Me.ValueBlue)
            Me.Controls.Add(Me.ValueGreen)
            Me.Controls.Add(Me.ValueRed)
            Me.Controls.Add(Me.BarBlue)
            Me.Controls.Add(Me.BarGreen)
            Me.Controls.Add(Me.BarRed)
            Me.Controls.Add(Me.Label3)
            Me.Controls.Add(Me.Label2)
            Me.Controls.Add(Me.Label1)
            Me.Controls.Add(Me.FontUnderline)
            Me.Controls.Add(Me.FontItalics)
            Me.Controls.Add(Me.FontBold)
            Me.Controls.Add(Me.FontSize)
            Me.Controls.Add(Me.FontFamily)
            Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
            Me.Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
            Me.Name = "Form_ChatOptions"
            Me.StartPosition = FormStartPosition.Manual
            Me.Text = "Chat Options"
            Me.BarRed.EndInit
            Me.BarGreen.EndInit
            Me.BarBlue.EndInit
            Me.Panel1.ResumeLayout(False)
            Me.Panel2.ResumeLayout(False)
            Me.ResumeLayout(False)
            Me.PerformLayout
        End Sub

        Private Sub InvertColors_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.FormParent.invertRGB
        End Sub

        Private Sub PresetColor_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.SetColorValues(DirectCast(NewLateBinding.LateGet(sender, Nothing, "BackColor", New Object(0  - 1) {}, Nothing, Nothing, Nothing), Color))
            Me.UpdateColor
        End Sub

        Private Sub SaveAndClose(ByVal DoSave As Boolean, ByVal DoClose As Boolean)
            If DoSave Then
                MySettingsProperty.Settings.FontBold = Me.FontBold.Checked
                MySettingsProperty.Settings.FontColor = Me.PreviewColor.Text
                MySettingsProperty.Settings.FontFamily = Me.FontFamily.SelectedItem.ToString
                MySettingsProperty.Settings.FontItalics = Me.FontItalics.Checked
                MySettingsProperty.Settings.FontSize = Conversions.ToInteger(Me.FontSize.SelectedItem)
                MySettingsProperty.Settings.FontUnderline = Me.FontUnderline.Checked
                MySettingsProperty.Settings.Keywords = Me.Keywords.Text.ToLower
                MySettingsProperty.Settings.PlayKeywordSound = Me.PlayKeywordSound.Checked
                Me.FormParent.UpdateFont
                Me.FormParent.UpdateKeywords
            End If
            If DoClose Then
                Me.Close
            End If
        End Sub

        Private Sub SetColorValues(ByVal FromColor As Color)
            Me.BarRed.Value = FromColor.R
            Me.BarGreen.Value = FromColor.G
            Me.BarBlue.Value = FromColor.B
            Me.ValueRed.Text = Conversions.ToString(FromColor.R)
            Me.ValueGreen.Text = Conversions.ToString(FromColor.G)
            Me.ValueBlue.Text = Conversions.ToString(FromColor.B)
        End Sub

        Private Sub UpdateColor()
            Me.TempColor = Color.FromArgb(Me.BarRed.Value, Me.BarGreen.Value, Me.BarBlue.Value)
            Me.PreviewColor.BackColor = Me.TempColor
            Me.PreviewColor.Text = Globals.ColorToHex(Me.TempColor)
            Me.PreviewFont.ForeColor = Me.TempColor
        End Sub


        ' Properties
        Friend Overridable Property BarBlue As TrackBar
            <DebuggerNonUserCode> _
            Get
                Return Me._BarBlue
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TrackBar)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.BarBlue_Scroll)
                If (Not Me._BarBlue Is Nothing) Then
                    RemoveHandler Me._BarBlue.Scroll, handler
                End If
                Me._BarBlue = WithEventsValue
                If (Not Me._BarBlue Is Nothing) Then
                    AddHandler Me._BarBlue.Scroll, handler
                End If
            End Set
        End Property

        Friend Overridable Property BarGreen As TrackBar
            <DebuggerNonUserCode> _
            Get
                Return Me._BarGreen
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TrackBar)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.BarGreen_Scroll)
                If (Not Me._BarGreen Is Nothing) Then
                    RemoveHandler Me._BarGreen.Scroll, handler
                End If
                Me._BarGreen = WithEventsValue
                If (Not Me._BarGreen Is Nothing) Then
                    AddHandler Me._BarGreen.Scroll, handler
                End If
            End Set
        End Property

        Friend Overridable Property BarRed As TrackBar
            <DebuggerNonUserCode> _
            Get
                Return Me._BarRed
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TrackBar)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.BarRed_Scroll)
                If (Not Me._BarRed Is Nothing) Then
                    RemoveHandler Me._BarRed.Scroll, handler
                End If
                Me._BarRed = WithEventsValue
                If (Not Me._BarRed Is Nothing) Then
                    AddHandler Me._BarRed.Scroll, handler
                End If
            End Set
        End Property

        Friend Overridable Property DoApply As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._DoApply
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.DoApply_Click)
                If (Not Me._DoApply Is Nothing) Then
                    RemoveHandler Me._DoApply.Click, handler
                End If
                Me._DoApply = WithEventsValue
                If (Not Me._DoApply Is Nothing) Then
                    AddHandler Me._DoApply.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property DoDone As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._DoDone
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.DoDone_Click)
                If (Not Me._DoDone Is Nothing) Then
                    RemoveHandler Me._DoDone.Click, handler
                End If
                Me._DoDone = WithEventsValue
                If (Not Me._DoDone Is Nothing) Then
                    AddHandler Me._DoDone.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property DoRandomize As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._DoRandomize
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.DoRandomize_Click)
                If (Not Me._DoRandomize Is Nothing) Then
                    RemoveHandler Me._DoRandomize.Click, handler
                End If
                Me._DoRandomize = WithEventsValue
                If (Not Me._DoRandomize Is Nothing) Then
                    AddHandler Me._DoRandomize.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property DoReset As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._DoReset
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.DoReset_Click)
                If (Not Me._DoReset Is Nothing) Then
                    RemoveHandler Me._DoReset.Click, handler
                End If
                Me._DoReset = WithEventsValue
                If (Not Me._DoReset Is Nothing) Then
                    AddHandler Me._DoReset.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property FontBold As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._FontBold
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.FontUpdate)
                If (Not Me._FontBold Is Nothing) Then
                    RemoveHandler Me._FontBold.CheckedChanged, handler
                End If
                Me._FontBold = WithEventsValue
                If (Not Me._FontBold Is Nothing) Then
                    AddHandler Me._FontBold.CheckedChanged, handler
                End If
            End Set
        End Property

        Friend Overridable Property FontFamily As ComboBox
            <DebuggerNonUserCode> _
            Get
                Return Me._FontFamily
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ComboBox)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.FontUpdate)
                If (Not Me._FontFamily Is Nothing) Then
                    RemoveHandler Me._FontFamily.SelectedIndexChanged, handler
                End If
                Me._FontFamily = WithEventsValue
                If (Not Me._FontFamily Is Nothing) Then
                    AddHandler Me._FontFamily.SelectedIndexChanged, handler
                End If
            End Set
        End Property

        Friend Overridable Property FontItalics As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._FontItalics
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.FontUpdate)
                If (Not Me._FontItalics Is Nothing) Then
                    RemoveHandler Me._FontItalics.CheckedChanged, handler
                End If
                Me._FontItalics = WithEventsValue
                If (Not Me._FontItalics Is Nothing) Then
                    AddHandler Me._FontItalics.CheckedChanged, handler
                End If
            End Set
        End Property

        Friend Overridable Property FontSize As ComboBox
            <DebuggerNonUserCode> _
            Get
                Return Me._FontSize
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As ComboBox)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.FontUpdate)
                If (Not Me._FontSize Is Nothing) Then
                    RemoveHandler Me._FontSize.SelectedIndexChanged, handler
                End If
                Me._FontSize = WithEventsValue
                If (Not Me._FontSize Is Nothing) Then
                    AddHandler Me._FontSize.SelectedIndexChanged, handler
                End If
            End Set
        End Property

        Friend Overridable Property FontUnderline As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._FontUnderline
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.FontUpdate)
                If (Not Me._FontUnderline Is Nothing) Then
                    RemoveHandler Me._FontUnderline.CheckedChanged, handler
                End If
                Me._FontUnderline = WithEventsValue
                If (Not Me._FontUnderline Is Nothing) Then
                    AddHandler Me._FontUnderline.CheckedChanged, handler
                End If
            End Set
        End Property

        Friend Overridable Property InvertColors As Button
            <DebuggerNonUserCode> _
            Get
                Return Me._InvertColors
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Button)
                Dim handler As EventHandler = New EventHandler(AddressOf Me.InvertColors_Click)
                If (Not Me._InvertColors Is Nothing) Then
                    RemoveHandler Me._InvertColors.Click, handler
                End If
                Me._InvertColors = WithEventsValue
                If (Not Me._InvertColors Is Nothing) Then
                    AddHandler Me._InvertColors.Click, handler
                End If
            End Set
        End Property

        Friend Overridable Property Keywords As TextBox
            <DebuggerNonUserCode> _
            Get
                Return Me._Keywords
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As TextBox)
                Me._Keywords = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label1 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label2 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label3 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label3
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label3 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Label4 As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._Label4
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._Label4 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Panel1 As Panel
            <DebuggerNonUserCode> _
            Get
                Return Me._Panel1
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Panel)
                Me._Panel1 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property Panel2 As Panel
            <DebuggerNonUserCode> _
            Get
                Return Me._Panel2
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Panel)
                Me._Panel2 = WithEventsValue
            End Set
        End Property

        Friend Overridable Property PlayKeywordSound As CheckBox
            <DebuggerNonUserCode> _
            Get
                Return Me._PlayKeywordSound
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As CheckBox)
                Me._PlayKeywordSound = WithEventsValue
            End Set
        End Property

        Friend Overridable Property PreviewColor As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._PreviewColor
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._PreviewColor = WithEventsValue
            End Set
        End Property

        Friend Overridable Property PreviewFont As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._PreviewFont
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._PreviewFont = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ValueBlue As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._ValueBlue
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._ValueBlue = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ValueGreen As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._ValueGreen
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._ValueGreen = WithEventsValue
            End Set
        End Property

        Friend Overridable Property ValueRed As Label
            <DebuggerNonUserCode> _
            Get
                Return Me._ValueRed
            End Get
            <MethodImpl(MethodImplOptions.Synchronized), DebuggerNonUserCode> _
            Set(ByVal WithEventsValue As Label)
                Me._ValueRed = WithEventsValue
            End Set
        End Property


        ' Fields
        <AccessedThroughProperty("BarBlue")> _
        Private _BarBlue As TrackBar
        <AccessedThroughProperty("BarGreen")> _
        Private _BarGreen As TrackBar
        <AccessedThroughProperty("BarRed")> _
        Private _BarRed As TrackBar
        <AccessedThroughProperty("DoApply")> _
        Private _DoApply As Button
        <AccessedThroughProperty("DoDone")> _
        Private _DoDone As Button
        <AccessedThroughProperty("DoRandomize")> _
        Private _DoRandomize As Button
        <AccessedThroughProperty("DoReset")> _
        Private _DoReset As Button
        <AccessedThroughProperty("FontBold")> _
        Private _FontBold As CheckBox
        <AccessedThroughProperty("FontFamily")> _
        Private _FontFamily As ComboBox
        <AccessedThroughProperty("FontItalics")> _
        Private _FontItalics As CheckBox
        <AccessedThroughProperty("FontSize")> _
        Private _FontSize As ComboBox
        <AccessedThroughProperty("FontUnderline")> _
        Private _FontUnderline As CheckBox
        <AccessedThroughProperty("InvertColors")> _
        Private _InvertColors As Button
        <AccessedThroughProperty("Keywords")> _
        Private _Keywords As TextBox
        <AccessedThroughProperty("Label1")> _
        Private _Label1 As Label
        <AccessedThroughProperty("Label2")> _
        Private _Label2 As Label
        <AccessedThroughProperty("Label3")> _
        Private _Label3 As Label
        <AccessedThroughProperty("Label4")> _
        Private _Label4 As Label
        <AccessedThroughProperty("Panel1")> _
        Private _Panel1 As Panel
        <AccessedThroughProperty("Panel2")> _
        Private _Panel2 As Panel
        <AccessedThroughProperty("PlayKeywordSound")> _
        Private _PlayKeywordSound As CheckBox
        <AccessedThroughProperty("PreviewColor")> _
        Private _PreviewColor As Label
        <AccessedThroughProperty("PreviewFont")> _
        Private _PreviewFont As Label
        <AccessedThroughProperty("ValueBlue")> _
        Private _ValueBlue As Label
        <AccessedThroughProperty("ValueGreen")> _
        Private _ValueGreen As Label
        <AccessedThroughProperty("ValueRed")> _
        Private _ValueRed As Label
        Private components As IContainer
        Public FormParent As Form1
        Private PresetColors As Color()
        Private TempColor As Color
    End Class
End Namespace

